home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / view_vb.exe / VIEWER.FRM (.txt) < prev   
Encoding:
Visual Basic Form  |  1993-01-27  |  2.6 KB  |  95 lines
  1. VERSION 2.00
  2. Begin Form Displayer 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Put Report Name Here in Code"
  5.    ControlBox      =   0   'False
  6.    Height          =   4965
  7.    Left            =   1110
  8.    LinkTopic       =   "Form2"
  9.    MinButton       =   0   'False
  10.    ScaleHeight     =   4275
  11.    ScaleWidth      =   7485
  12.    Top             =   1185
  13.    Width           =   7605
  14.    Begin VScrollBar VScroll 
  15.       Height          =   4035
  16.       LargeChange     =   15
  17.       Left            =   7260
  18.       TabIndex        =   1
  19.       Top             =   0
  20.       Width           =   255
  21.    End
  22.    Begin HScrollBar HScroll 
  23.       Height          =   255
  24.       Left            =   0
  25.       Max             =   1
  26.       TabIndex        =   2
  27.       Top             =   4020
  28.       Width           =   7275
  29.    End
  30.    Begin PictureBox Display 
  31.       AutoRedraw      =   -1  'True
  32.       Height          =   4035
  33.       Left            =   0
  34.       ScaleHeight     =   4005
  35.       ScaleWidth      =   11490
  36.       TabIndex        =   0
  37.       Top             =   0
  38.       Width           =   11520
  39.    End
  40.    Begin Menu FileMenu 
  41.       Caption         =   "&File"
  42.       Begin Menu PrintMenu 
  43.          Caption         =   "&Print"
  44.       End
  45.       Begin Menu seplinea 
  46.          Caption         =   "-"
  47.       End
  48.       Begin Menu CloseMenu 
  49.          Caption         =   "&Close"
  50.       End
  51.       Begin Menu CancelMenu 
  52.          Caption         =   "Cancel"
  53.       End
  54.    End
  55.    Begin Menu HelpMenu 
  56.       Caption         =   "&Help"
  57.    End
  58. Sub CancelMenu_Click ()
  59.     'put code here to indicate that the cancel button was pressed.
  60.     Displayer.Hide
  61. End Sub
  62. Sub CloseMenu_Click ()
  63.     Display.SetFocus
  64.     Displayer.Hide
  65. End Sub
  66. Sub Form_Activate ()
  67.     Dim t As Single
  68.     Display.Top = 0
  69.     t = Display.Height - Displayer.Height
  70.     If t < 0 Then t = 0
  71.     VScroll.Max = t \ Display.TextHeight("T") + 1
  72. End Sub
  73. Sub Form_Deactivate ()
  74.     Display.Height = Displayer.ScaleHeight
  75.     Display.Cls
  76.     Displayer.Hide
  77. End Sub
  78. Sub Form_Resize ()
  79.     VScroll.Left = Displayer.ScaleWidth - VScroll.Width
  80.     VScroll.Height = Displayer.ScaleHeight - HScroll.Height
  81.     VScroll.LargeChange = Displayer.ScaleHeight \ Display.TextHeight("T") - 1
  82.     HScroll.Width = Displayer.ScaleWidth - VScroll.Width
  83.     HScroll.Top = Displayer.ScaleHeight - HScroll.Height
  84. End Sub
  85. Sub HScroll_Change ()
  86.     If HScroll.Value Then
  87.         Display.Left = Displayer.ScaleWidth - Display.Width
  88.     Else
  89.         Display.Left = 0
  90.     End If
  91. End Sub
  92. Sub VScroll_Change ()
  93.     Display.Top = -VScroll.Value * Display.TextHeight("T")
  94. End Sub
  95.